home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / cdecl / compat.mln < prev    next >
Text File  |  1990-05-31  |  1KB  |  33 lines
  1.  
  2. ;Beginning compilation on /u/kranz/cdecl/compat.scm
  3.  
  4.  
  5. ;** Warning: unreferenced variable X
  6. ;   Location: in (DEFINE-SYNTAX (MODULE . X) (QUOTE (QUOTE IGNORE)))
  7. TOP-LEVEL-VALUE
  8. STRING->UNINTERNED-SYMBOL
  9. CLOSE-PORT
  10. FORMAT
  11. WITH-INPUT-FROM-FILE
  12. WITH-OUTPUT-TO-FILE
  13. PROPERTY-TABLE
  14. GETPROP
  15. PUTPROP
  16. (VARIABLES
  17.   FREE (ASSQ TABLE-ENTRY MAKE-SYMBOL-TABLE LIST CONS* CURRENT-OUTPUT-PORT
  18. OPEN CURRENT-INPUT-PORT BIND-HANDLER WITH-OPEN-PORTS-HANDLER STANDARD-ENV
  19. *VALUE NO-MORE-COND-CLAUSES APPLY CLOSE STRING->SYMBOL SCHEME-ENV
  20. EVAL TRUE MAKE-MACRO-DESCRIPTOR *DEFINE-SYNTAX)
  21.   EARLY-BOUND (SYMBOL? SETTER)
  22.   DEFINED ()
  23.   LSET (TOP-LEVEL-VALUE STRING->UNINTERNED-SYMBOL CLOSE-PORT FORMAT
  24. WITH-INPUT-FROM-FILE WITH-OUTPUT-TO-FILE PROPERTY-TABLE GETPROP PUTPROP)
  25.   SET ()
  26.   ERROR ()
  27.   INTEGRATED (CONS SYMBOL? ENFORCE COND-=>-AUX PAIR? T NOT CAR SETTER
  28. STRING? ELSE NIL CDR)
  29.   LOCAL ()
  30.   UNREFERENCED (TOP-LEVEL-VALUE STRING->UNINTERNED-SYMBOL CLOSE-PORT
  31. FORMAT WITH-INPUT-FROM-FILE WITH-OUTPUT-TO-FILE GETPROP PUTPROP))
  32. ; assembled 5128 bytes
  33.